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LIBSSYS_ASCTIM 16-Sep-1984 00:35:5 AX-11 Bliss-32 V4.0-74 P 1 
17 365-198e 99:38:33 UefaRTL Seed 1BASCTIM.B92;1 tt (1) 


99 MODULE LIBSSYS_ASCTIM ( 

4 IDENT = '1-008" ! File: LIBASCTIM.B32 EDIT: RKR1008 

00 ) = 

99 BEGIN 

00 ae aha el a het a sl Onn intaseae tage 
o1 is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH TH RM F H LICENSE AND WITH T 


® 
* 

* 

* 

* 

* 

* 

; N T E oTic OF TWARE Y OTHER * 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. e 
' * 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
's CORPORATION. * 
' * 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHJCH IS NOT SUPPLIED BY DIGITAL. ® 

* 

'® ® 
VRE AAA AERA RARTETAAAEERE EE 
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: 

FACILITY: General Library Support 

ABSTRACT: 
| 


This routine calls SASCTIM to convert binary date and time 
to an ASCII string, returning the resultant string using the 
semantics of the caller's string 

Parameter CONVFLG is presented to this routine by-reference 
and promoted to by-value for presentation to SASCTIM. 


ENVIRONMENT: VAX=-11 User Mode 
AUTHOR: R. Reichert, CREATION DATE: 20-SEPT-1979 
MODIFIED BY: 


1-001 = Original. RKR 20-SEPT-1979 
1-002 = Change name to LIBSSYS_ASCTIM. RKR 15-OCT-79 
1-005 - Change Logi¢ for status returned. Improve comments. 
RKR 20-OCT-79 
1-004 = Add code tg promote by-reference arguments to by-value. 
RKR 1-NOV-79 
1-005 = Change STR$ codes to LIBS codes. RKR 22-JAN-80_ : 
1-006 = Enhance to recognize additional classes of string descriptors 
on output by always getting data into internal buffer and 
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1! usin BkiOSscory DXD 6, xe deliver to caller's buffer. 
tiash ve ESy SC_R suse to compu use the n ber of bytes 
} gtual ly its. he copy operat tion gon 
} 0 yee LI * ~RxDK instea R By bx. This 
avoids eto ng to ch TRS statuses to LIB$ statuses and 
1! eliminates nee for : y Bit 
4 1! RKR 29-MAY-1 
65 5 1: 1-007 - Add aPeTite eee code to speed up rBereiSer for strings that 
08 66 1! read’ strings KR 7-0CT 
6 0067 1 ! 1-008 = Redirect jsb's iron Lise ANALYZE. 4 SC_R3 t 
68 0068 1! LIBSANALY 3 _SDESC_R2. Redirect” ftom (fasscopy. DXDX6 to 
69 0069 1! L1B$SCO ett td gain a Little gore speed. 
70 0070 1! RKR 1 onove 198 
71 0071 1 !-- 
72 0072 #1 
73 0073 1 !<BLF/PAGE> 
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; SWITCHES: 


SWITCHES ADDRESSING MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 
REQUIRE "RTILIN: STRLNK'; ! Linkage for LIBSANALYZE_SDESC_R2 
TABLE OF CONTENTS: 


84 


FORWARD ROUTINE 
LIBSSYS_ASCTIM; ! Convert date and time 


INCLUDE FILES: 


EXTERNAL REFERENCES: 


OOOO O0O0 OO OW 00000909 0909 08 SIN NI NI NI NINN INN NNO OOOO NINN 


EXTERNAL ROUTINE 

LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, ! Extract Length 
' and address of 
' Ist data byte 
! from descriptor 
LIBSSCOPY_R_DX6 : STRING_JSB; ! Copy string 
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REQUIRE 'RTLIN:RTLPSECT’; ! Macros for defining psects | 
’ LIBRARY ‘RTLSTARLE'; ! System symbols and macros | 
1 ' 
i MACROS: | 
; NONE | 
EQUATED SYMBOLS: | 
1 LITERAL 
1 LOCAL_BUF_SIZE = 42 ; ! The maximum number of characters that 
: ' can be returned by a call to SASCTIM 
! PSECTS: | 
i DECLARE _PSECTS (LIB); ' Declare psects for LIBS facility 
; OWN STORAGE: | 
1 i NONE | 
1 i 
1 i 
1 i 
1 
1 
1 
1 
1 
1 
1 
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IBSSYS_ASCTIM 
1-008 


GLOBAL ROUTINE LIBSSYS_ASCTIM ( ! Convert date and time 

3 LENGTH, ! Length returned 
RESULT ADDR, ! Descriptor of user's string 

TIMEADR, ! Time value to convert 

VFLG ! Flags 

3:2 | 


+ 


* 
FUNCTIONAL DESCRIPTION: 


This routine calls SASCTIM to convert binary date and time 
to an ASCII string, returning the resultant string using the 
semantics of the caller's string 

Parameter CONVFLG is presented to this routine by-reference 
and promoted to by-value for presentation to SASCTIM. 
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FORMAL PARAMETERS: 


LENGTH. ww.r Address of a word to receive the length 
of the output string returned. 
(Optional parameter 


RESULT_ADDR.wt.dx Address of the descriptor into which 
the resuiting date and time is written. 


TIMEADR.rqu.r Address of the 64-bit time value to be 
converted. If no address is specified, 


| ek el ee ek ek al et et ek ek 
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the current system date and time are 
returned. A positive time value 


OOONAUE WN O OONOU EWN SOD NOUE WO 
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Be Se Ge Se Be Ge Se Se Se Ge Se Se Se Be Ge Se Ge Ge Fe He Se Se Ge Ge Ge Se Ge Ge Ge FF Se Ge FH Se Ge Ge FO Se FSF Se Se Se Se Se Fe Se Se Ge See Ge Ge Ge Se ee ee 


or is specified as zero (the default), 

4 represents an absolute time. A Negative 

4 time value represents a delta time. If 
0440 a delta time is specified, it must be 
0441 less than 10,000 days. 
Ree (Optional parameter 
0444 CONVFLG.rlu.r Address of a 
0445 Conversion indicator. A value of 1 
Ree causes only the hour, minute, second, 

44 and hundredths of a second to be 
044 returned, depending on the Length of the 

44 buffer. A value o (the default) 

450 causes the full date and time to be 

451 returned, depending on the length of the 

£26 buffer. 

$37 (Optional parameter) 

$e2 IMPLICIT INPUTS: 

489 

45 NONE 

$28 

45 IMPLICIT OUTPUTS: 

460 

461 NONE 

462 

| 
| 
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IBSSYS_ASCTIM 16-Sep-1984 235: AX-11 Bliss-32 V4.0-74 Page 5 
ett 12=808- 1382 90:33:33 POTBRTL SREILTSASCTIM.B 2:1 . (3) 
187 ret } COMPLETION CODES: 
1 465 ! SS$_NORMAL Procedure successfully completed 
1 46 ' From LIBSSCOPY_R_DX6 
1 rf ! LIB$_STRTRO Success. but source string truncated 
1 4 8 ! LIBS_INSVIRMEM Insuff Clone virtual memory 
1 Beg ! LIBS_INVSTRDES Invalid string descriptor 
1 470 ' From SASCTIM 
i rhe verte l 10,000 d 
! equal to 10, ays. 
1 138 ‘ ’ : 
1 474 : 
1 475 ' SIDE EFFECTS: 
§ pe78 ‘ 
B68 May request the current date and time from VAX/VMS. 
479 len 
0480 
0481 BEGIN 
bees BUILTIN 
048 NULLPARAMETER 
0484 ACTUALPARAMETER ; 
0485 
0486 LOCAL 
0487 ' output buffer 
0488 COPY STATUS, ' Status from LIBSSCOPY_R_DX6 call 
0489 STR_STATUS, ' Status from SASCTIM calT 
0490 DATE TIME BUF : VECTOR CLOCAL BUF SIZE, BYTE], ! Local buffer 
0491 BUF FER_DESC : BLOCK C8, BYTE); ! Dp 
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1 
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1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

! Descr for local 

049 ' buffer 

049 

MAP 
RESULT_ADDR : REF BLOCK [,BYTE] , 
LENGTH? REF VECTOR C,WORDS ; 

14 


Conetryct a static descriptor to receive the date and time from 
* 
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+ 
' Call SASCTIM using the appropriate combination of caller's 


: parameters, default parameters and internal variables. 


STR_STATUS = $ASC ( 
FER_DESC, ! NOTE: Length will get rewritten with 
FER_DESC, ! 


E i 
NUCLPARAME TER (3) | 
CTUALPARAME TER (3) F | 


returned 


| 
TIME The specified delta time is greater than or 
| 
actual lengt 
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¢ P FLSE -ACTUALPARAMETER(4) ) 

d r 

48 i Copy internal buffer to caller's buffer, Letting LIBSSCOPY_R_Dx6 
> q worry about its semantics. 


COPY_STATUS = LIBSSCOPY_R_DX6 (. ait DESC 
“oe FER-DESC 
ULT-ADDR 


'¢ 
i tf caller supplied agnong —— pareneter ae 


DUP PV PVPS 
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; 0 

3 0 

; ! To do this accurately need to ins spect (ting ‘de gooey 
; 9 i as it appears after the py. Get L SANALYTE. rSDEsC 

: ' No need to check LIBSANALY SDESC_R2 status. “If RESULT tRDOR donee 
: 8 a was bad, LIBSSCOPY_R_DX6 would have told us about it. 

; 3 05 "1F_(NOT NULLPARAMETER(1)) 

3; 2 05 THEN 

; soe 0540 BEGIN 

> 265 0541 

; 266 b246 RESUL ! No. of bytes delivered to caller 

: 367 0948 RESULT “ADDRESS: Address of Ist data byte of callers 
: $89 0545 if -RESULT_ADDR C DSCS$B ~CLASS] GTRU DSCSK_CLASS_D 

: 270 0546 THEN ! Must use general extraction 

§ $f 0547 4 BEGIN 

3 Le 0548 4 LIBSANALYZE_SDESC_R2 ( Pg ADDR 

> eo? 0549 4 ESULT_CEN, résuLT ADDRESS ); 

s 276 0550 4 END 

3 $7? 0551 4 ; 

3 $78 B226 ELSE ! Can fetch Length directly 

; $f8 B2ee RESULT_LEN = .RESULT_ADDR COSCSW_LENGTH] ; 

; sey 8228 3 —" CO] = MIN (.BUFFER_DESC COSCS$W_LENGTH], .RESULT_LEN) ; 
: 28 0558 2 !+ 

3 $B 3222 i At this point we have 2 statuses that we could return to caller. 

3; 284 560 i Determine which one is the "most meaningful”. 

; 285 0561 ie 

; 286 0366 '¢ 

: 287 Bee iif original SASCTIM call failed, tell him about that 

3 My Beee t else give him the copy status. 

: 290 0366 if NOT .STR_STATUS THEN RETURN (.STR STATUS) 

; 4! £544 ELSE RETURN ( (COPY. STATUS) ; 

: 3 0569 1 END; ! end of LIBSSYS_ASCTIM 


et 


LIBSSYS_ASCTIN 


5E 0 
wiseore F 
046 AE 8 AE 
04 6 
0 
10 AC 
4 
08 
10 BC 
: 
oc AC 
4 
08 
oc AC 
08 AE 
OC AE 
000000006 99 04 
5 50 
57 08 AC 
52 57 
51 04 AE 
50 6E 
000000006 090 
53 50 
6C 
28 
04 AC 
23 
02 03 =A? 
i 
50 5 
000000006 9 
0 
51 67 
% i 
50 3 
046 BC 8 
04 5 
50 58 
50 53 
; Routine Size: 144 bytes, Routine Base: _LIBSCODE 
; 294 0570 1 
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~EXTRN SYSSASCTIM 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
FS 00 .ENTRY LIBSSYS_ASCTIM, Save R2,R3,R4,R5,R6,R7,RB 
¢ SUBL2 
D 0000 PUSHL #17694762 
: 0 MOV DATE_TIME_BUF, BUFFER_DESC+4 
1 CMPB ss (AP) > #4 
1F 6 1 BLSSU.'1$ 
D 1 TSTL 16(AP) 
1 0 1 BNEQ 2$ 
D 1A 18: CLRL =(SP) 
11 0001C BRB 3$ 
pp OO1E as: PUSHL @16(AP) 
1 00021 3$: CMPB.s«CAP), #3 
1F 00024 BLSSU -4$ 
D5 000 $ TSTL  12¢AP) 
12 00 BNEQ 5$ 
D4 00028 4$: CLRL =(SP) 
11 00020 BRB 6$ 
DD 900 F S$: PUSHL 12(AP) 
9F 000 : 6$: PUSHAB BUFFER_DESC 
9F 0003 PUSHAB BUFFER DESC 
FB 00038 CALLS #4, SYSSASCTIM 
DO 0003F MOVL RO, STR_STATUS 
D0 00042 MOVL RESULT_ADDR, R? 
DO 00046 MOVL 7, R2 
pO 00049 MOVL § BUFFER_DESC+4, R1 
C 90040 MOVZWL BUFFERDESC, RO 
16 00050 JSB LIBSSCOPY_R DX6 
9 00056 MOVL RO, COPY_STATUS 
95 00059 TSTB (AP) 
13 00058 BEQL 10$ 
D3 9005p TSTL 4 (AP) 
13 00060 BEQL 10$ 
91 00062 CMPB =s«3(R7), #2 
1B 90066 BLEQU 7$ 
DO 0006 MOVL 7, RO 
16 00068 JSB LIBSANALYZE_SDESC_R2 
11 00071 BRB 
3¢ 00073 7$ MOVZWL (R7), RESULT_LEN 
€ 00076 8$ MOVZWL BUFFER DESC,~R 
p] 0079 CMPL RO, RESULT_LEN 
5 0007¢ BLEG 469 
DO 0007E MOVL RESULT LEN, RO 
8 pel 9$: MOVW RO, @LENGTH 
5 10$:  BLBS STR_STATUS, 118% 
D0 0088 MOVL § STRTSTATUS, RO 
04 90 RET 
bd O8C 11$ MOVL § COPY_STATUS, RO 
4 0008F RET 
+ 0000 
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; 336 0378 } END ! end of module LIBSSYS_ASCTIM 

: 29 73 0 ELUDOM 

PSECT SUMMARY 

; Name Bytes Attributes 

:  LIBSCODE 144 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; eoocesee SyEbol§ ecoecece Pages Processing 

: File Total ioaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 10 0 581 00:00.7 

; COMMAND QUALIFIERS 

; BLISS/CHECK = (FIELD. INITIAL .OPTIRIZE) /MOTRACE/L ISaL 15821 IBASCTIM/0BJ=08JS:L IBASCTIA MSRC$:LIBASCTIM/UPDATE=(ENH$:LIBASCTIM 
Ly 144 code : 0 data bytes 
Elapsed Tine: 00:12 
Lines/CPU Min: 


ponenee/CPe-mtes 31184 
ry Used: 80 pages 
eee ation Complete 
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